perm filename TMP[TEX,DEK] blob sn#716794 filedate 1983-06-26 generic text, type T, neo UTF8
  1) TEX.PAS[TEX,DEK] and 2) TEX.PSC[TEX,DEK]	6-26-83 15:12	pages 1,1

**** File 1) TEX.PAS[TEX,DEK]/1P/77L
1)	SKIPLINE:INTEGER;{:485}{504:}CURNAME:STRNUMBER;CURAREA:STRNUMBER;
1)	CUREXT:STRNUMBER;{:504}{505:}AREADELIMITE:POOLPOINTER;
1)	EXTDELIMITER:POOLPOINTER;{:505}{512:}
1)	TEXFORMATDEF:PACKED ARRAY[1..18]OF CHAR;{:512}{519:}
**** File 2) TEX.PSC[TEX,DEK]/1P/77L
2)	{:485}{504:}CURNAME:STRNUMBER;CURAREA:STRNUMBER;CUREXT:STRNUMBER;{:504}
2)	{505:}AREADELIMITE:POOLPOINTER;EXTDELIMITER:POOLPOINTER;{:505}{512:}
2)	TEXFORMATDEF:PACKED ARRAY[1..18]OF CHAR;{:512}{519:}
***************


**** File 1) TEX.PAS[TEX,DEK]/1P/246L
1)	EQTB[3562].HH.RH:=0;EQTB[3507].HH.RH:=14;EQTB[3482].HH.RH:=5;
1)	EQTB[3597].HH.RH:=15;EQTB[3470].HH.RH:=9;
1)	FOR K:=48 TO 57 DO EQTB[3982+K].HH.RH:=K+28672;
1)	FOR K:=65 TO 90 DO BEGIN EQTB[3470+K].HH.RH:=11;
**** File 2) TEX.PSC[TEX,DEK]/1P/245L
2)	EQTB[3562].HH.RH:=0;EQTB[3482].HH.RH:=5;EQTB[3597].HH.RH:=15;
2)	EQTB[3470].HH.RH:=9;FOR K:=48 TO 57 DO EQTB[3982+K].HH.RH:=K+28672;
2)	FOR K:=65 TO 90 DO BEGIN EQTB[3470+K].HH.RH:=11;
***************


**** File 1) TEX.PAS[TEX,DEK]/1P/311L
1)	END;{:259}{510:}PROCEDURE PRINTFILENAM(N,A,E:INTEGER);BEGIN PRINT(N);
1)	PRINT(E);PRINT(A);END;{:510}{691:}PROCEDURE PRINTSIZE(S:INTEGER);
**** File 2) TEX.PSC[TEX,DEK]/1P/309L
2)	END;{:259}{510:}PROCEDURE PRINTFILENAM(N,A,E:STRNUMBER);BEGIN PRINT(N);
2)	PRINT(E);PRINT(A);END;{:510}{691:}PROCEDURE PRINTSIZE(S:INTEGER);
***************


**** File 1) TEX.PAS[TEX,DEK]/1P/1284L
1)	CURINPUT.STARTFIELD:=FIRST;CURINPUT.STATEFIELD:=1;
1)	PAGESTACK[CURINPUT.INDEXFIELD]:=PAGE;CURINPUT.NAMEFIELD:=0;END;{:322}
1)	{323:}PROCEDURE ENDFILEREADI;BEGIN FIRST:=CURINPUT.STARTFIELD;
1)	PAGE:=PAGESTACK[CURINPUT.INDEXFIELD];
**** File 2) TEX.PSC[TEX,DEK]/1P/1282L
2)	CURINPUT.STARTFIELD:=FIRST;CURINPUT.STATEFIELD:=1;CURINPUT.NAMEFIELD:=0;
2)	PAGESTACK[CURINPUT.INDEXFIELD]:=PAGE;END;{:322}{323:}
2)	PROCEDURE ENDFILEREADI;BEGIN FIRST:=CURINPUT.STARTFIELD;
2)	PAGE:=PAGESTACK[CURINPUT.INDEXFIELD];
***************


**** File 1) TEX.PAS[TEX,DEK]/1P/1980L
1)	BEGIN IF STRPTR+3>MAXSTRINGS THEN OVERFLOW(130,MAXSTRINGS-INITSTRPTR);
  1) TEX.PAS[TEX,DEK] and 2) TEX.PSC[TEX,DEK]	6-26-83 15:12	pages 1,1

1)	CURNAME:=STRPTR;
**** File 2) TEX.PSC[TEX,DEK]/1P/1978L
2)	BEGIN IF STRPTR+3>MAXSTRINGS THEN OVERFLOW(130,MAXSTRINGS);
2)	CURNAME:=STRPTR;
***************


**** File 1) TEX.PAS[TEX,DEK]/1P/5316L
1)	IF EQTB[4141].INT>0 THEN{1319:}
1)	IF JOBNAME>0 THEN BEGIN WRITELN(LOGFILE,' ');
**** File 2) TEX.PSC[TEX,DEK]/1P/5314L
2)	IF EQTB[4141].INT<>0 THEN{1319:}
2)	IF JOBNAME>0 THEN BEGIN WRITELN(LOGFILE,' ');
***************